home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / sbbshslk.zip / SBBSHSDL.BAS < prev    next >
BASIC Source File  |  1993-03-19  |  986b  |  44 lines
  1. PRINT " Hs/Link Fix for SuperBBS version 1.17-2"
  2. PRINT " Version 1.1.2 Beta"
  3. PRINT " Written By BayBeVet"
  4. PRINT " All Rights Reserved By T■U■N (1993)"
  5. PRINT " ------------------------------------"
  6.  
  7. SHELL "del c:\superbbs\files.¿¿¿"
  8. SHELL "del c:\superbbs\files.tun"
  9. SHELL "copy c:\superbbs\files.lst,c:\superbbs\files.¿¿¿"
  10. SHELL "del c:\superbbs\files.lst"
  11.  
  12. OPEN "c:\superbbs\files.¿¿¿" FOR INPUT AS #1
  13. OPEN "c:\superbbs\files.tun" FOR OUTPUT AS #2
  14.  
  15. a$ = ""
  16.  
  17.  
  18. INPUT #1, a$
  19. flag = 1
  20.  
  21. a$ = RIGHT$(a$, LEN(a$) - 7)
  22. DO WHILE flag = 1
  23. x = INSTR(1, a$, "UNN NNN")
  24. IF x <> 0 THEN
  25.         b$ = LEFT$(a$, x - 1)
  26.         a$ = RIGHT$(a$, LEN(a$) - (x + 6))
  27.         PRINT "Fixing File "; b$; " in Files.tun"
  28.         PRINT b$
  29.         PRINT #2, b$
  30. END IF
  31. IF x = 0 THEN
  32.         flag = 0
  33.         PRINT a$
  34.         PRINT #2, a$
  35. END IF
  36. LOOP
  37. CLOSE #1
  38. CLOSE #2
  39.  
  40. PRINT "User Download Queue File Written to c:\superbbs\files.tun"
  41.  
  42. SHELL "del c:\superbbs\files.¿¿¿"
  43.  
  44.